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COPYRIGHT (c) 1978, 1980, 1982, 1984 BY 
DIGITAL ad be CORPORATION, MAYNARD, MASSACHUSETTS. 
ALL RIGHTS RESERVED. 


THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED 
0 IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE 
SION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER 
S_THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY 
PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY 
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THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE 
oeepokat ite NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT 


DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS 
SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. 
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++ 
; FACILITY: Performance Monitoring 


ABSTRACT: 
Collects device information for performance 
monitoring and returns same in supplied buffer. 


ENVIRONMENT: 
MODE = KERNEL 


AUTHOR: S. S. AMWAY, CREATION DATE: 24-Oct-83 
MODIFIED BY: 
V03-002 SSA0024 Stan favex 9-Apr-1984 
ignore disk UCB's with CDP bit set in UCBSL_DEVCHAR2. 
( 1/0 can ever take place to these units.) 
v03-001 SSA0006 Stan Am 11-Feb-1984 
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Call IOCSCVT_DEVNAM requesting allocation 
class format of device name. 
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; INCLUDE FILES: 


: i EQUATED SYMBOLS: 


tye 


8 
BUF 
DCLASS=12 
D A Me a 
DEVCOUNT=20 


SSID PAPA AAA AAA MII 
NRO ODNOVUVE WN OOONOUE UT 
. 


Page (3) 


L 9 
GET_DEVICE_INFO - Get device information 16-SEP-1984 02:16: AX/VMS Macro v04-00 P 
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73 -SBTTL GET_DEVICE_INFO = Collect device information 
;++ 
S 3 FUNCTIONAL DESCRIPTION: 
4 : Collects device information for specified device classes & types. 
0 : CALLING SEQUENCE: 
0 1 ; CALLS/CALLG GET_DEVICE_INFO 
6 : : INPUT PARAMETERS: 
00 4; 4(AP)=Buffer address 
4 S$: (AP)=Buffer Length 
§ 3 12(AP)=Device class 
000 ; 16(AP)=Device type 
00 9 : IMPLICIT INPUTS: 
2000 3 3 NONE 
$60 36 > OUTPUT PARAMETERS: 
4 a : 20(AP)=Count of devices in buffer 
0000 95 : IMPLICIT OUTPUTS: 
i464 38 : Buffer is filled with device data 
0000 98 : COMPLETION CODES: 
0000 4-99: ; $S$_NORMAL 
0000 100 ; SS$_INSFAR 
0000 101; SS$_IVBUFLEN 
8008 19 : SS$"ACCVI 
0000 104 ; SIDE EFFECTS: 
0000 105 ; NONE 
$600 109 | 
00000000 108 ; .PSECT S$CODE , PIC,CON,REL,LCL, SHR, EXE, RD,NOWRT,LONG 
OFFC 000 110 -ENTRY GET_DEVICE BOR RES AA AR AE EET A ONS AT 
50 0114 BF o3¢ 00 111 MOVZWL #SSS_INSFARG,R 
5 6c ot si¥4 \'6 avs (AP), #5 ; Must have 5 arguments 
OOAF 3 boot 114 1$ BRw 9999$ 
50 0O34C 8F C OOF 115 5$ MOVZWL #SS$_IVBUFLEN,RO 
57 08 AC 09 014 116 MOVL BUELEWCAB) .R/ 3 R7 <= buffer Length 
7 .6UCUkCOe | oe): DIVL3 #52,R7,R8 : RB <= max # of devices 
EE 15 1¢ 113 LEQ 1$ 3; Error if <= 
56 04 AC g0 1 11 MOVL BUF ADDR(AP) ,R6 ; R6 <= buffer address 
0 oC C 0 : 120 MOVZWL #SS$_ACCVIO,RO 
121 IFNOWRT SIZ=R7,- : Make sure buffer 
3 1 é ADR=(R6),- 
1 DEST=1$ 
B 124 IFNOWRT SI1Z=#4,- 3; and device name counter 
B 5 ADR=@DEVCOUNT (AP) ,~ > are writable 
14 BC D4 : 159 CLRL  @DEVCOUNT (AP) ; lero device name counter 
54 seis hd dO 1 3 MOVL G*SCHSGL_CURPCB,R4 : R4 <= PCB address of this process 
0000000 ¢ 16 — JSB Sa gc resOcocKn : Lock 1/0 database (returns @ IPL 2) 
A 7C 0042 130 CLRQ R1 : Clear UCB/DDB context 
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v04= GET_DEVICE_INFO = Collect device informa 5-SEP-1984 UTIL32.SRCIGETDINFO.MAR; 1 
Q0000000'GF 1 44 131 108: JSB8 G*IOC$SCAN_IODB 3; Get next device UCB address 
ee 8 £3 4A 4 Bec | RONNOOR : Quit 1? done 
C AC 4 1 TSTB epee 3; Accept all devices classes ? 
0B «19 2 134 BLSS ; BR if yes 
40 AA OC ag 4 : ! 5 yy DCLASS(AP) ,UCBSB_DEVCLASS (R10) ; Device class match ? 
3 es 
oh » a4 ! $ sLht aie 3; Skip ehtire controller 
10 AC 95 B28 1 § 208: TSTB ate ; Accept all device types ? 
09 = =«19 6 140 BLSS $ . if yes 
41 AA 10 AC 91 06 14} CMPB VTYPE (AP) ,UCBSB_DEVTYPE (R10) 3; Device type match ? 
0¢ 13 8 146 BEQL $ ; BR if yes 
D 11 69 14 BRB 0$ : Get next device 
01 40 AA 91 068 144 30S: CMPB UCBSB_DEVCLASS(R10) ,#DC$_DISK ; If disk device and 
05 is QO6F 145 BNEQ 40$ ; CDP bit set, 
CE 3C AA O03 CE B08 146 BBS gon ey CDP,UCBSL_DEVCHAR2(R10),10$ ; get next device 
86 5A D0 0076 147 40S: MOVL R10, (RB)+ ; Buffer gets UCB address 
57 04 C2 0079 148 SUBL2 #4,R7 : R7 <= updated buffer Length 
51 6 00 Bp ee 149 MOVL Ri 3; R1 <= buffer address 
50 57 00 OO7F 150 MOVL R7,RO 3; RO <= buffer Length 
54 01 00 pee 151 MOVL #1,R4 3: R4 <= Format control 
55 5A 00 08 138 MOVL R10,R5 : RS <= UCB address 
00000000'GF 16 0088 15 JSB G*10CSCVT_DEVNAM 
1A 50 5? OO8E 154 BLBC RO,100 
66 10 20 66 51 € 0091 155 MOVCS R1,(R6),#*A/ /,#16,(R6) ; Pad device name to 16 characters 
56 53 00 0097 156 MOVL f ; R6 <= updated buffer address 
86 38 AA 7D OO9A 137 MOVQ $UCBSQ_DEVCHAR(R10),(R6)+: Get device characteristics 
943 123 ASSUME UCBSB_DEVTYPE EQ UCBSB_DEVCLASS+1 
40 AA 3C OO9E 161 MOVZWL UCBSB_DEVCLASS(R10).- ; Get device class & type 
86 00A1 16¢ (R6)+ 
7, 6C||h6 Bong 16 SUBL2 #28,R7 ; R7 <= updated buffer Length 
14 BC 06 BRA 164 INCL @DEVCOUNT (AP) ; Count another device name 
99 58 FS QOA8 165 SOBGTR R 
54 Q0000000'GF DO OOAB 166 100$: MOVL G*SCHSGL CURPCB,R4 ; R4 <= PCB address of this process 
00000000'GF 16 00B 167 JSB G*SCHSIOONLOCK 3; Unlock 1/0 database 
008 168 SETIPL #0 ; Restore IPL 
50 01 3C Q0BB 169 9998$: MOVZWL #SS$_NORMAL,RO 
04 OOBE 170 9999$: RET 
OOBF 171 
OOBF 172 END 
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SymBol tabTe g-SEF} 3b Be: 38: 8 tOTiLs3.s 5GeT DINFO.MAR;1 . 3) vo 
BUF ADDR z 4 
BUFLEN = 8 
DC$_DISK = 1 
CLASS = 
DEVS$V_CDP = 
EVCOONT = 
DEVTYPE = 8 
GET_DEVICE_INFO 000000 RG 
1OCSCVT_DEQNAM eereeeee x 
1OCSSCAR OB. eeeeeeee = § 
Reeeeeee x 
SCHSGL_CURPCB teeeeeee =X 
SCHSIOCOCKR teeeenee =X 
SCHSIOUNLOCK eeeeeeee § 
SS$_ACCVIO = 0000000C 
SS$_INSFARG = 4444 8 
S$S$_IVBUFLEN = 0000034C 
SS RMAL = 00000001 
UCBSB_DEVCLASS z att 8 
UCBS$B_DEVT = 00000041 
UCBSL_DEVCHAR2 = 0000003C¢ 
UCB$Q_DEVCHAR = 00000038 
$e wer m arc nanrncamae + 
! ;_Psect synopsis H 
PSECT name Allocation PSECT No. Attributes 
» OS wv 00000000 0.) 00 ¢ O.) NOPIC USR CON ABS LCL os NOEXE NORD wg NOVEC BYTE 
SABSS 00000000 (¢ 0.) O71 ¢ #1.) NOPIC USR CON ABS LCL NOSHR EXE RD NOVEC BYTE 
SCODE QOOOOOBF ¢ 191.) 02 ¢ 2.) PIC USR CON REL LCL SHR EXE RD NOURT NOVEC LONG 
ji tintiindsenisheneaneindat 
! ; Performance indicators ! 
Phase Page faults CPU Time Elapsed Time 
Initialization 48 00:00:00.10 00:00:00.65 
poanand processing 165 3:8: 0.68 30 389:9 ¢ 
s 1 288 00:00: 5-83 00: B63 9 
Synbol table sort a 0:00: 1+3¢ 9 289: 5 +] 
Symbol iable output 4 ‘8 :00.07 0:0 : is 
poec® synopsis ateut i BBR: 0.03 BB : : Oe 
ross-reference outpu :00:00. :00: 
Assembler run totals 554 St BE ae $000; 35 49 


Rag thn. sat Limit was 1350 pages. 
bytes (97 pages) of virtual memory were used to buffer the intermediate co 
os were 60 pages of symbol table space allocated to hold 1026 non-local and 39 Tocat symbols. 
2 source lines were read in Pass 1, producing 16 object records in Pass 2. 
14 pages of virtual memory were used to define 13 macros. 
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! Macro Library statistics : 


peewee eeeeeeseseeeeeesececesan 


Macro Library name Macros defined 


“$535 SDUAZE: SVS -08 JLIB.MLB; 1 

$255$DUA08: CSYSLIBJSTARLET .MLB;2 

TOTALS (all Libraries) 10 
1105 GETS were required to define 10 macros. 

There were no errors, warnings or information messages. 


MACRO/LIS=L1IS$:GETDINFO/OBJ=0BJ$:GETDINFO MSRC$:GETDINFO/UPDATE=(ENH$:GETDINFO) +€XECML$/LIB 


